﻿Namespace Utilities
    Friend Class RandomGenerator
        Private Shared _rnd As Random

        Shared Sub New()
            _rnd = New Random()
        End Sub

        Private Sub New()

        End Sub

        Public Shared Function Instance() As Random
            Return _rnd
        End Function



    End Class
End Namespace